home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wheelo1a / frmabout.frm (.txt) next >
Visual Basic Form  |  1999-09-12  |  3KB  |  84 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H80000003&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "About...."
  6.    ClientHeight    =   4710
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   4650
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4710
  14.    ScaleWidth      =   4650
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "Exit"
  18.       Height          =   255
  19.       Left            =   1560
  20.       TabIndex        =   2
  21.       Top             =   4320
  22.       Width           =   1455
  23.    End
  24.    Begin VB.Shape Shape2 
  25.       Height          =   615
  26.       Left            =   240
  27.       Top             =   120
  28.       Width           =   4095
  29.    End
  30.    Begin VB.Shape Shape1 
  31.       Height          =   3375
  32.       Left            =   480
  33.       Top             =   840
  34.       Width           =   3735
  35.    End
  36.    Begin VB.Label Label2 
  37.       BackStyle       =   0  'Transparent
  38.       Caption         =   $"frmAbout.frx":0000
  39.       BeginProperty Font 
  40.          Name            =   "Lucida Sans Unicode"
  41.          Size            =   12
  42.          Charset         =   0
  43.          Weight          =   400
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       Height          =   2895
  49.       Left            =   840
  50.       TabIndex        =   1
  51.       Top             =   1200
  52.       Width           =   3135
  53.    End
  54.    Begin VB.Label Label1 
  55.       BackColor       =   &H00FFFFFF&
  56.       BackStyle       =   0  'Transparent
  57.       Caption         =   "Wheel-Of-Fortune"
  58.       BeginProperty Font 
  59.          Name            =   "News Gothic MT"
  60.          Size            =   15.75
  61.          Charset         =   0
  62.          Weight          =   700
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       Height          =   495
  68.       Left            =   360
  69.       TabIndex        =   0
  70.       Top             =   240
  71.       Width           =   3495
  72.    End
  73. Attribute VB_Name = "frmAbout"
  74. Attribute VB_GlobalNameSpace = False
  75. Attribute VB_Creatable = False
  76. Attribute VB_PredeclaredId = True
  77. Attribute VB_Exposed = False
  78. Private Sub Command1_Click()
  79. If Form11.Text1.Text = "truth" Then
  80. MsgBox "Only a moron would think this isn't like the wheel of fortune game on tv. Of course, mine is WAY better."
  81. End If
  82. frmAbout.Visible = False
  83. End Sub
  84.